GetAreaOfGridInteger Function

private function GetAreaOfGridInteger(grid) result(area)

Arguments

Type IntentOptional Attributes Name
type(grid_integer), intent(in) :: grid

Return Value real(kind=float)


Variables

Type Visibility Attributes Name Initial
integer(kind=short), public :: i
integer(kind=short), public :: j

Source Code

FUNCTION GetAreaOfGridInteger &
!
(grid) &
!
RESULT(area)

IMPLICIT NONE

!arguments with intent(in):
TYPE(grid_integer), INTENT (IN)   :: grid  

!Local declarations:
REAL (KIND = float) :: area
INTEGER (KIND = short) :: i, j
!------------------------------------end of declarations-----------------------
area = 0.

DO i = 1, grid % idim
  DO j = 1, grid % jdim
    IF (grid % mat (i,j) /= grid % nodata) THEN
      area = area + CellArea (grid, i, j)
    END IF
  END DO
END DO


END FUNCTION GetAreaOfGridInteger